EEE 


D 8 
Sy 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
LLL IIIIIIIII BBBBBBBBBBBB RRRRRRRRRRRR TTTTTTTTTTTTTTT «LLL Ll 
LLL HII BBBBBBBBBBBB RRRRRRRRRRRR TTTTTTTTTTTTITTT «LLL + 
LLL LITT BBB RRRRRRRRRRRR TTTTTTTTTITITITT «LLL L 
LLL 111 BBB BBB RRR RRR TTT LLL | Ll 
LLL II] BB BBB RRR RRR TTT LLL LI 
LLL 11] BBB BBB RRR RRR TTT LLL | Ll 
LLL II] BBB BBB RRR RRR TTT LLL | Ll 
LLL Il] BBB RRR RRR TTT LLL Ll 
LLL Il] BBB BBB RRR RRR TTT LLL Ll 
LLL III B RRRRRRRRRRRR TTT LLL Ll 
LLL Ill BBBBBBBBBBBB RRRRRRRRRRRR TTT LLL LI 
LLL Ill 8 RRRRRRRRRRRR TTT LLL ul 
LLL III BRA BBB RRR RRR TTT LLL 
LLL II] BBB RRR RRR TTT LLL Ll 
LLL II] BER BBB RRR RRR TTT LLL Ll 
LLL II] BRB BBB RRR RRR TTT LLL Ll 
LLL III ERB BBB RRR RRR TTT LLL Ll 
LLL Ill BSB BB RRR RRR TTT LLL Ll 
LLELLLLLLLLLLLLL IIIIIIIII BBBBBBBBBBBB RRR RRR TTT LELLLLLLLLLLLLL Ll 
LLELLLLLLLLLLLLL TITIII111 BBBBBBBBBBBB RRR RRR TTT LI 
LLELLLLLLLLLLLLL LIIIIIII BBBBBBBBBBBB RRR RRR TTT LELLLLLLLLLLLLL 


| 
LLLLLLLLLLLLLLL | 
| 
| 
| 
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LL III] BBBBBBBB FFFFFFFFFF LL TTTTTTTTTT UU UU NN NN DDDDDDDD ; 
LL 1111 BBBBBBBB FFFFRFFFFFF LL TTTTTTTTTT UU UU NN NN DDDDDDDD > 
LL I] BB FF LL TT UU UU NN NN DD DD : 
LL I] BB FF LL TT UU UU NN NN DD DD : 
LL I] BB BB OFF LL TT UU UU NNNN NN DD DD ; 
LL I] BB FF LL TT UU UU NNNN NN DD DD : 
LL I] BBBBBBBB FFFFFFFF LL TT UU UU NN NN NN DD DD : 
LL I] B FRFFFFFF LL TT UU UU NN NN NN DD DD ; 
LL I] BB BB OFF LL TT UU UU NN NNNN DD DD ; 
LL II BB BB OFF LL TT UU UU NN NNNN DD DD ; 
LL I] BB BB OFF LL TT UU UU N NN DD DD cece : 
LL I] BB BB OFF LL TT UU UU NN NN DD DD cece ; 
LLLLLLLLLL III! BBBBBBBB FF LLLLLLLLLL TT UUUUUUUUUU NNN NN DDDDDDDD cece ; 
LLLLLLLLLL III] BBBBBBBB FF LLLLLLLLLL TT UUUJUUUUUU NN NN DDDDDDDD eoee : 
LL IIIT] SSSSSSSS 

LL III! SSSSSSSS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SSSSSS 

LL I] SSSSSS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SS * 

LLLLLLLLLL HII! SSSSSSSS 

LLLLLLLLLL II! SSSSSSSS 
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14- eet 99:38: 44 CTBRTL’ SR REIL 1 TUND B82: 1 ° (1) 
; 1 0001 MODULE LiBsrtT UNDER (ZTITL jcnapiere sable loag i “ager low traps’ ; 
Pe 00¢ ' IDENT = "1002" | Files LIBFLIOND.63> cious" *"? 
; 00 )= $ 
: 4 0004 1 BEGIN $ 
; 5 iF 1 : 
; 6 006 1! F 
4 4 i444 1 Lee ERE E EEE EERE AAA AEEEREREEKERERED ° 
3 0 1 Ie * : 
; 9 009 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 8B * : 
; 10 0010 1 !* DIGITAL EQUIPMENT €ORPORATION, MAYNARD. MASSACHUSETTS. * : 
; 1) dp : - ALL RIGHTS RESERVED. * : 
; : * : 
: 8 $648 1 '® THIS SOFTWARE IS FURNISHED usoet A LICENSE AND MAY BE USED AND sore * : 
3 4% 0014 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * ; 
s.6 | YS 0015 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHE * ; 
; 0016 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * ; 
: 17 0017 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 2 
; i St : :* TRANSFERRED. ® : 
3 '@ * Py 
: 20 0020 1 !* phe INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * : 
; 21 0021 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * ; 
3 $$ ht } :* CORPORATION. * ; 
3 'e a e 
: 24 it 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS’ * : 
; 25 0025 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ; 
; 0026 1 !* * : 
: 0027 1 !* * : 
: 28 QCO28 1 ere ree eee E EERE ERE AEE ETE REREKEEREREAEREKAEAE EEE : 
; 9 0029 1! : 
3 $6 $080 1 F 
i 3 O08? 1} FACILITY Utility Lib 
; y Library ; 
; 0033 1 ; 
; $e 0034 1 ! ABSTRACT: : 
; 5 0035 1! : 
; » 0036 1! LIBSFLT =UNDER enables or disables floating underflow : 
a 0037 1! for the calii ng procedure activation. The previous setting 
; $ ites : of the enable is returned as a value. 
3 ra sre ' : ENVIRONMENT: User mode, re-entrant, AST level or not or mixed. 
3 $§ oe ' AUTHOR: Thomas N. Hastings CREATION DATE: 8-Oct-77 
> «646 044 1 ! MODIFIED BY: 
3; «645 045 1! 
: 46 pose 1! Thomas a. Hastings, 8-Oct-77: VERSION 0 
: 47 0047 1! 01 rtgine al 
; | «648 0048 1! 6-5 - Declare PSECTs. TNH 19=Dec-77 
: 49 0049 1! 0-03 - ago to STARLET Library. 4 20-Apr-78 
; Baas 1! 0-04 - reper frame. TNH 21- - 78 
;. 051 1! “3? - Change EQUIRE files R. VAX system build. DGP 28-Apr-78 
3 26 sit f4 1! 0-06 = Ch ponge 5 STARLET to BTL STABLE to o's conflicts. DGP Picmay-78 
: » 0055 1! 0-07 - file name to LIBFLTUND.B ang chang the name 
3; «34 bnae 1! -% he REQUIRE file similarly. 
2. 55 1! 1-003 - Update version number ong copyri ht srotice, JBS 16-NOV-78 
. Bp 28 1 ! 1-002 = Use prologue file. SBL 24-June-1983 
; OF 0057 1 !-- 
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PROLOGUE FILE: 


REQUIRE ‘RTLIN:LIBPROLOG'; ! LIBS definitions 


; TABLE OF CONTENTS: 


FORWARD ROUTINE 
LIBSFLT_UNDER; ! Enable/disable floating underflow 


MACROS: 


EQUATED SYMBOLS: 


i OWN STORAGE: 


EXTERNAL REFERENCES: 


4 
IBSFLT_UNDER Enable/disable floating underflow traps 1b-5e -1984 00:56:11 AX-11 Bliss-32 V4.0-74 Pa 3 
4 805' oie ae ergot 88e Foi ebiey | ee ORES Libel tune B32: 1 - 


GLOBAL ROUTINE LIBSFLT_UNDER ( ! Enable/disable tloating under flow 
NEW_SETTING) ' n 


; 1 1 

.* 138 1 TTIN Adr. of longword containing new setting 
: 3 160 1 = ! Value is old setting 

; 161 1 

; | «94 166 1 'e4 

3 4 19? : FUNCTIONAL DESCRIPTION: 

: 97 165 1 LIBSFLT_UNDER enables or disables floating underflow 

: 98 198 . 3 for the conn ane procedure activation. The previous setting 

; 299 167 1! of the enable is returned as a value. 

: 100 0168 1! 

$ 13) 8196 1 ! FORMAL PARAMETERS: 

; 7 ¢ 170 1! 

; 10 gies 17 new_setting.rlu.r Adr. of lLongword containing new enable setting. 
: ie \7¢ : Bit 0 = 1 is enable, bit 0 = 0 is disable. 
> 106 bis 1 i IMPLICIT INPUTS: 

: 107 0175 1! 

: 109 ae a 

: 110 0178 1! IMPLICIT OUTPUTS: 

> 6111 0179 1! 

s 16 0180 1! NONE 

.- 0181 1! 

; 1N8 Biss : ROUTINE VALUE: 

: 116 0184 1! OLD_SETTING.wlu.v previous contents of SRM$W_PSWCPSW$V_FU] 
3 117 0185 1! in the callers frame. 

s 118 0186 1! 

3; 6119 0187 1 !' COMPLETION CODES: 

: 120 0188 1! 

: 121 0189 1! NONE 

3 \$¢ 0190 1! 

3; Ve 0191 1 ! SIDE EFFECTS: 

: 126 8136 . 

s 125 0193 1! The callers stack frame will be modified. 

s 126 0194 1! 

: 158 a 

; 129 0199 BEGIN 

s 1530 0198 

: 131 0199 LOCAL 

3 se 0200 OLD_SETTING; ! store the old SETTING of floating underflow enable 
: 137 ose) BUILTIN 

i 136 68 ws 

; 136 $504 NEW_SETTING: REF VECTORC1, LUNG], ! Scalar call-by-reference 
s 137 0205 FP: REF BLOC BYTE); 

: 138 06 OLD SETTING = .FPLSFSV FU); 

> 139 0 FPCSF$V_FU) = .NEW SETTINGLO); 

; 140 08 RETURN -OLD_SETTING; 

: (141 0209 1 END; ‘End of LIBSFLT_UNDER 


-TITLE LIBSFLT_UNDER Enable/disable floating underflow 
s 
SIDENT \1-002\ , 


ee eee it: coi 8h 2538:5) | EMant SReSc Tbe L TON -682; 1 — 


-PSECT _LIBSCODE,NOWRT, SHR, PIC,2 


0000 e ENTRY BSFLT_UNDER, S thi : 015 

50 04 AE 0 06 EF $0908 aM sae Ber 433) OLD SETTING  o588 

04 AE 01 0 04 BC FO 0000 INSV anew. SETTING, #6, #1, 4(FP + 0207 
04 0000F RET + 0209 


; Routine Size: 16 bytes, Routine Base: _LIBSCODE + 0000 


IBSFLT_UNDER Enable/disable floating underflow traps 1B-se Sep-1984 1 AX=-11 Blisg-32 V4.0-74 Page , L 
+ 805 : : 368-1986 19:38:51 ECTartu see Si tert tun. 692: mF a) v03 
> 143 10 1 END ‘End of module : 
[144 8514 0 ELUDOM é 
: PSECT SUMMARY ; 
Name Bytes Attributes ; 
;  JLIBSCODE 16 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 3 
: Library Statistics ; 
. oS ee et oe ee fl Cees Symbols -------- Pages Processing : 
; File Total Loaded Percent Mapped Time : 
: _$255$DUA28:(SYSLIBISTARLET.L32:1 9776 1 0 581 00:00.7 ; 
3 ~$255$DUA28:CLIBRTL.OBJIRTLLIB.L32;1 36 0 0 8 00:00.1 : 
; COMMAND QUALIFIERS ; 
; FLISE/EME CROCE FELD. SNE TIM, OPTIMIZED /MOTRALEA LOA, S58 LOPE FUNDER ICR IE cL SOF L TD MSRC$:LIBFLTUND/UPDATE=(ENHS$:LIBFLTUND : 
3; Size: 16 code + 0 data bytes ; 
; Run Time: 0:02.0 ‘ 
; Elapsed Time: 00:14.2 ; 
3; Lines/CPU Min: $e3 3 
; eee Ae Hii 1010 : 
; Y Used: 30 pages 3 
3 ee ation Complete : 
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